﻿Imports System.Xml
Imports System.IO
Imports Mysoft.Map.Data
Imports Mysoft.WebControls


Partial Public Class Cwjk_PzRuleSet_SelectZy
    Inherits Mysoft.Map.Application.Security.AppPage


    Protected _presentationHtml As String

    Public Sub New()
        Me._presentationHtml = String.Empty
    End Sub


    

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim strOperTypeGUID As String = Request.QueryString("OperTypeGUID").ToString()
        Dim strsql As String = ""
        Dim strEntity As String = ""
        If Not strOperTypeGUID Is Nothing AndAlso strOperTypeGUID <> "" Then
            strsql = MyDB.GetDataItemString("select datasource+'|'+amountfiled from p_CwjkOperType where OperTypeGUID='" & Request.QueryString("OperTypeGUID") & "'")
            If strsql <> "" Then
                strEntity = strsql.Split("|")(0)
                txtDataSource.Text = strEntity
                txtBizObject.Text = strEntity & ";" & strOperTypeGUID
            End If
        End If
        crmHtmlBar.Options = HtmlBar.HtmlBarParam.None
    End Sub

End Class